home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / ACC_CPX / CALC_2 / IO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-02-05  |  2.7 KB  |  121 lines
  1. /*
  2.  *    GEM calculator
  3.  *    resource dependent part: screen input & output
  4.  *    Copyright 1985 Axel T. Schreiner, Ulm, W-Germany
  5.  */
  6.  
  7. #include <obdefs.h>
  8. #include <gemdefs.h>
  9. #include "b:\calc\calc.h"            /* resource */
  10.  
  11. /*
  12.  *    tunable
  13.  */
  14.  
  15. #define    RESOURCE    "calc.rsc"    /* resource file */
  16. #define    DELAY        300, 0        /* button animation time */
  17.  
  18. /*
  19.  *    macros
  20.  */
  21.  
  22. #define    Grect(p)    (p)->g_x, (p)->g_y, (p)->g_w, (p)->g_h
  23. #define    aGrect(p)    &(p)->g_x, &(p)->g_y, &(p)->g_w, &(p)->g_h
  24.  
  25. /*
  26.  *    calculator globals
  27.  */
  28.  
  29. OBJECT * Resource;            /* main tree of resource */
  30. char Name[] = " Calculator ";        /* main tree window name */
  31.  
  32. /*
  33.  *    initialization
  34.  *
  35.  *        get resource
  36.  *        determine addresses
  37.  *        initialize calculator execution
  38.  *
  39.  *    must initialize Resource and Name
  40.  */
  41.  
  42. int Load()                /* true if loaded ok */
  43. {    OBJECT * op;
  44.     TEDINFO * tp;
  45.     char * cp;
  46.  
  47.     return    rsrc_load(RESOURCE)
  48.         && rsrc_gaddr(R_TREE, RCALC, & Resource)
  49.         && rsrc_gaddr(R_OBJECT, RDISPLAY, & op)
  50.         && op->ob_type == G_BOXTEXT
  51.         && (tp = (TEDINFO *) op->ob_spec)
  52.         && (cp = (char *) tp->te_ptext)
  53.         && ! Calc(BCLEAR, cp, tp->te_txtlen);
  54. }
  55.  
  56. /*
  57.  *    keyboard input
  58.  */
  59.  
  60. int Keyboard(key)            /* true if task should terminate */
  61.     int key;            /* coded keyboard key */
  62. {    static struct map { int ch, code; } map[] = {
  63.         '0', BZERO,        '1', BONE,
  64.         '2', BTWO,        '3', BTHREE,
  65.         '4', BFOUR,        '5', BFIVE,
  66.         '6', BSIX,        '7', BSEVEN,
  67.         '8', BEIGHT,        '9', BNINE,
  68.  
  69.         'a', BA, 'A', BA,    'b', BB, 'B', BB,
  70.         'c', BC, 'C', BC,    'd', BD, 'D', BD,
  71.         'e', BE, 'E', BE,    'f', BF, 'F', BF,
  72.  
  73.         /* 0: not available from keyboard */
  74.  
  75.         0, BDEC,    'O', BOCT,    'H', BHEX,
  76.         0, BCLEAR,
  77.         '=', BEQUAL,    '\n', BEQUAL,    '\r', BEQUAL,
  78.         '|', BOR,    '^', BXOR,    '&', BAND,
  79.         '<', BLSH,    '>', BRSH,
  80.         '+', BADD,    '-', BSUB,
  81.         '*', BMULT,    '/', BDIV,    '%', BREM,
  82.         '(', BLPAR,    ')', BRPAR,
  83.         0, BMINUS,    '~', BCOMP,
  84.         0, BCENTRY,
  85.  
  86.         /* table scanned to code < 0 */
  87.  
  88.         0, -1 };
  89.     struct map * mp;
  90.  
  91.     if (key &= 0x7f)        /* ASCII part only */
  92.         for (mp = map; mp->code >= 0; ++ mp)
  93.             if (mp->ch == key)
  94.                 return Button(mp->code);
  95.     return 0;
  96. }
  97.  
  98. /*
  99.  *    click on object
  100.  */
  101.  
  102. int Button(code)            /* true if task should terminate */
  103.     int code;            /* button index in Resource */
  104. {    int i;
  105.     OBJECT * op;
  106.  
  107.     if (! rsrc_gaddr(R_OBJECT, code, & op)
  108.         || ! (op->ob_flags & SELECTABLE))
  109.         return 0;
  110.     objc_change(Resource, code, 0, Resource->ob_x, Resource->ob_y,
  111.         Resource->ob_width, Resource->ob_height, SELECTED, 1);
  112.     if (! (i = Calc(code)))
  113.         objc_draw(Resource, RDISPLAY, 1,
  114.             Resource->ob_x, Resource->ob_y,
  115.             Resource->ob_width, Resource->ob_height);
  116.     evnt_timer(DELAY);
  117.     objc_change(Resource, code, 0, Resource->ob_x, Resource->ob_y,
  118.         Resource->ob_width, Resource->ob_height, NORMAL, 1);
  119.     return i;
  120. }
  121. ə